SEITE 1 

1 * GENERAL AUTOMATION, INC, ALL RIGHTS RESERVED 

2 ************************************************** 

3 * 

4 * PROGRAM NAME FORTRAN PH-q4 

5 * 

6 * MODEL NUMBER BF004 

7 * 

8 * PURPOSE FORTRAN PHASE-04 

9 * 

10 * PROGRAMMER DJCK KALLMANN, MODS-MARK ELFIELD 

11 * 

12 ***************** REVISION LIST ************** 

14 * RV DATE SCO BY RfcASON FOR CHANGE 

15 * - -•--*• s — ^ 

17 * 01 11/16/70 RPH INITIAL RELEASE 

18 * 

19 ************************************************** 

2n ************************************************** 

21 * OA 18/30 FORTRAN COMPILE* 05/01/70 

22 *STATUS - VERSION 1, MODIFICATION 

23 *FUNCTION/OPERATION- _ mi n _ oi 
? A * * PLACES COMMON STMNT VARIABLE INTO THE SYM30L 

25 * TABLE, INCLUDES DIMENSION INFORMATION, IF 

26 * PRESENT. „. , 

27 * * REMOVES COMMON STINTS FROM THE STRING 

2fl * * CHECKS FOR A SUBROUTINE OK FUNCTION STMNT, 

29 * * PLACES THP NAME AND'DUMMY ARGUMENTS OP THE 

30 * SUBROUTINE OR FUNCTION STATEMENT INTO THE 

31 * SYMBOL TABLE. DELETES THE STMNT FROM THE 

32 * STMNT STRING, 

33 * * CHECKS REAL AsjD JNTEGbR STATEMENTS FOP TH = 

34 * WORD FUNCTION 

35 * * PHASE" 4 IS A T^O ^ASS PHASE, THE FIRST PAsS 

36 * PROCESSES COMMON STATbMENTS, THE SECOND 

37 * PASS PROCESSES A SUBRuUTlNE OR FUNCTION 

38 * STATEMENTS, INCLUDING A FUNCTION DESIGNATED 

39 * IN A REAL OR INTEGER STATEMENT, 

40 *ENTRY POINT 

41 * * TOP IS THE LABEL ON ThE ENTRY POINT ADDR, 

42 * PHASE 4 IS SEQUENTIALLY LOADED FROM PHASE 3 

43 * VIA A CALL TO ROLRX,_ 

44 *INPUT- 

45 * NONE IN THE USUAL SENSE, HOWEVER, THE STMNT 

46 * STRING SCANNED BY THE CuMplLEK MAY BE 

47 * CONSIDERED INPUT, 

48 OUTPUT- „ „ 

49 * NONE IN THE USUAL SENSE, HOWEVER* PHASE 4 

•5 * REMOVES STM ITS FROM THE STMNT STRING AND ADOS 

51 * ENTRIES TO THE SYMBOL " TABLE , 

52 ^EXTERNAL ROUT I MFS"N/A 

53 *EXITS 

54 * * NORMAL - THE NORMAL EXIT IS TO PHASE f VIA 

55 * ROLRX IF NO UVfcRLAP EKRCP HAS 

56 * OCCURRED, 

57 * * ERRORS - THE NORMAL FLOW OF THE COMPILER IS 
r >8 * MOT INTERRUPTED BY SYNTAX ERRORS, 
^9 * AN OVERLAP EKRQR TERMINATES THE 
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60 * COMPILATION, CONTROL IS PASSED 

61 * FROM PHASE Tu PHASfc UNTIL PHASE 21 

62 * IS LOADED, aT THAT TIME A MESSA3E 

63 * STATING THE UVERLAP IS PRINTED, 

64 *TABLES/WORK AREAS- 

65 * NON EXCEPT STATEMENT STKING AREA, SYMBOL 

66 * TABLE, AND FORTRAN COMMuN I CAT JON AREA 

67 *ATTRIBUTES-M/A 

68 * * THE COMPILATION AND SYNTAX ERRORS NUMRERIMG 

69 * 7, 8, 10, 11* 12, 13, 14, 15, ?4 ARE 

70 * DETECTED BY PHASE 4, 

71 *NOTES- 

72 * THE SWITCHES USED IN PHaSe 4 FOLLOW, If NON- 
73 * ZERO, THE SWITCH IS TRANSFER^, if ZERO, TH= 

74 * SWITCH IS NORMAL»N. 

75 * * N0RM2-SYNTAX ERROK IN COMMON STMNT 

76 * TsSYNTAX ER«Oh pRbSfcNT 

77 * * ASWl-RJGHT PARENTHfcSlS ENCOUNTERED 

78 * NaNOT ENCOUNTERED 

79 * * ASW2-R6AL STATEMENT ENCOUNTERED 

80 * MsNOT ENCOUNTERED 

81 * * ASW3-INTEGER STATEMENT ENCOUNTERED 

82 * NaNOT ENCOUNTtRED 

83 * * SW5A-FI0 STATEMENT PREbENT 

84 * NsNOT PRESENT 

85 __ ADS /2€ f- CJ7iX<£- 

8F i ""SYSTEM AND FORTRAN EQUATES 

-8-f MEMRY EOU -ft&r? c*«r MAXjMyM CQRE SIZE 

88 PHSIZ EQU 4*320 MAXjMljM PNASE SIZE 

89 OVERL EQU MEMRY-PHSIZ PHASES 2-?9 START 

90 FCOM EQU OVERL-22 FORTRAN CoMMi TABLE 

91 PHNTB EQU FC0M^56 PHASE TABLE 

92 ROLRX EQU PHNTB-50 INTERPHASE CALL 

93 * FORTRAN COMMUNICATION AREA 

94 * FORTRAN COMMUNICATION AREA 

95 ORG FCOM 

96 SOFS BSS 1 STAKT OF STRING 

97 EOFS BSS 1 END OF STRING 

98 SOFST BSS 1 STAKT OF SYMBOL TABLE 

99 SOFNS BSS 1 STAKT Op NON-STHNT NUMBERS 

100 SOFXT BSS 1 STArtT OF SUBSCRIPTED TE^PS 

101 SOFGT BSS 1 STAKT OF GENERATED TEMPS 

102 EOFST BSS 1 END'OF SYMBOL TABLE 

103 COMON BSS 1 NEX I AVAILABLE COMMON 

104 CSIZE BSS 1 SIZE OP COMMON 

105 ERROR BSS 1 OVERLAP ERRO* 

106 FNAME BSS 1 PROuRa* NAME 

107 BSS 1 2ND WqRU OF NAME 

108 SORF BSS 1 SJBK <*) OR FUNCT (*) 

109 CCWD BSS 1 CONTROL CARD WORD 

110 * BIT 15 TRANSFER TRACE 

111 * BIT 14 ARI IHMETIC TRACE 

112 * BIT 13 EXTtNDEU PRECISION 

113 * BIT 12 LISl SYMBOL TABLE 

114 * BIT 11 LIS! SUBPROGRAM NAMES 

115 * SIT 10 LISl SOURCE PROGRAM 

116 * BIT 9 ONE WQRU JNT&GERS 

117 IOCS BSS 1 IOCS CONTROL CARD WORD 

118 * BIT 15 CARU 

119 * BIT 14 PAPfcR TAPE 
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120 

121 

122 
123 
124 
125 
126 
127 

128 

129 

13 
131 
132 
133 
134 
135 
136 
137 
138 
139 

14 
141 
142 
143 
144 
145 
146 
147 
148 
149 
IPO 
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152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
16B 
169 
17 
171 
172 
173 
174 
175 
17 6 
17 7 
178 
179 
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DFCNT 
LCOMN 
ICCER 
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TOP 



* 
* 
* 
TST 



♦ 
MV 



NX ID 
FIX 
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PTB 



RSS 
BSS 
RSS 

BSS 



ORG 
LDX 

LD 
BSC 



LD 

SRA 

AND 

S 

BSC 

s 

BSC 

MDX 

LD 

SRA 

AND 

STO 

MDX 

MDX 

SLA 

STO 

STX 
MDX 
SLA 
STO 



LD 

S 

BSC 

LD 

BSC 

LD 

S 

BSC 



1 
2 
2 
2 
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BIT 13 TYPfcWRllEK 

BIT 12 1443 PRINTER 

BIT 11 MAGNETIC TAPE 

BIT 10 KEYBOARD 

BIT 9 144* PUNCH 

BIT 8 QIS* 

BIT 7 NOT USED 

BIT 6 NUT USEu 

BIT 5 NOT USEU 

BIT 4 NOT USEU 

BIT 3 PLOlTER 

BIT 2 NOT'USEU 

BIT 1 UNFuRMATTfcD DISK 

BIT UNFuRMATTfcD TAPE 
DEFINE FILE COUNT 
INSKEL COMMON USE 
IOCS CONTHOL CARD ERROR 
SYSTEM LOADER USE 
OF FORTRAN COMMUNICATION 



END 

AREA 
OVERL 
SQFS INITIALIZE STRING I/P PT 

OVERLAP tRROK QN 
F.PRQR TiSi FOK OVERLAP ERROR 
START, Z GET'PHS 5 IF OVLP ERROR 



C 

1 

IDTPE 

ENDC 

START, ♦- 

CQMMC 

FIX 

MOVE 

2 

IDNRM 

HXID+1 



1 
1 



CHECKS FuR END AND COMMON 
UPDATES THE I/P STRING PT 
TO MOVE TO THE NEXT STMNT 
LOAU STMNT ID > : ORD 



ST^NT 
(X^l) 



GET ID TYPE 

IS IT END 

GET PHS 5 IF EfD CARD 

IS IT COMMON 

SKIP IF NOT 

CHECK FUR TYPE 

TO NEXT STMNT 

LOAU STMNT ID 

SHJh_T NURM TO 

ISOLATE NORM 



OF COMMON! 

WORD 
RIGHT 



TST 

16 

COM ID 



MOVfc POJNTER TO NEXT 
GO TEST STMNT TYPE 



CLEAR 



CUMJD 
INITIALIZE TU SCAN COMMOf 
COMSV SAVt l^PUT POINTER 
I MOVfc POINTER 

16 
NQRM2 

CHECKS 

CHECKS 



SEMIC 

RMOVE,+. 



STMN 



STMNT 



TERMINATOR 



NORM 2 
SETUP, E 

SLH 

QCOM»+- 



CLEaR NURM2 

FuR STMNT 

FUR SLASH 
IS CHARACTER 
SEMiCQLUN 
BRANCH IF YES 
IS THERE SYNTAX ERROR 
COMMON STMNT - BRANCH 
LOAU WOKD 

is Character slash 
branch if yes 



im 

Y=S 
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CHECKS THE NAMfc TOR VADIDTY 


181 


DD2 


LD 


1 o 


LQAu WORD 


182 




BSC 




SKIP IF NQT SPECIAL CHA=? 


183 




MDX 


ERAH 


GO fO EKRQR 7 


IB 4 




STO 


HDl 


SAVE WOHD 


185 




SLA 


2 




186 




BSC 


L F.RAH,C + Z 


BRANCH IF NUMERIC 
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LD 


1 1 


LOAU 2NU WORD 


188 




BSC 


L MAD,+Z 


BRANCH IF PART OF NAME: 


189 




LD 


ZERO 


LOAU ZENOfcS 


190 




STO 


WD2 


STOKE AS 2ND WORD IP NA^ 


191 




MDX 


ZORRO 


CHECK FUR DUPLICATES 


192 


HAD 


STO 


WD2 


STOKE 2ND WORD 


193 




MDX 


1 1 


MOVE POINTER 


194 




LD 


1 1 


LOAU NEXT WORD 


195 




BSC 


L FRAH,+Z 


BRANCH NOT SPECIAL CHAR 


196 


* 




SCANS THfc SYM TBL FOR 


197 


# 




DUPLICATION UF THb VAR NA«fc 


198 


ZORRO 


LDX 


13 SDFNS 


INIIULIZE SYMBOL TABLE 


199 




MDX 


JACK 


STAKT loop 


20 


LOOP 


LD 


3 1 


DOES FIRST WORD IN NAME 


201 




S 


WD1 


MATCH TABLE WORD 


2D2 




BSC 


Z 


SKIP IF YfcS 


2D3 




MDX 


EAT 


GETNEXT TABLE ENTRY 


204 




LD 


3 2 


DOES SECOND WORD IN NAME 


205 




S 


WD2 


EQUAL TABLE 2ND WORD 


206 




BSC 


L HELP#+- 


BRANCH IF YE^ 


207 


EAT 


MDX 


3 -3 


GET NfcXT TABLE ENTRY 


208 


JACK 


STX 


3 SAVEQ 


SAVt TABLE POINTER 


209 




LD 


SAVEQ 


has entire table been 


210 




S 


EQFST 


CHECKED FOR DUPLICATES 


211 




BSC 


Z 


SKIP IF YfcS 


212 




MDX 


LOOP 


CONTINUE LOOP 


213 




MDX 


PLACE 


PUT'lN SYMBOL TABLE 


214 


* 




COW 


STANTb 


215 


COMMC 


DC 


/1400 


"COMMON 


216 


ENDC 


DC 


/OBQO 


END 


217 


IDTPE 


DC 


/7C0O 


ST'MnT id type mask 


218 


IDNRM 


DC 


/P1FF 


NORM MASK 


219 


SEMIC 


DC 


/OOlt 


SEMICOLON 


220 


N0RM2 


DC 





SWITCH TWO 


221 


SW2 


DC 


1 


SW'liCH 2 


222 


COMSV 


DC 





POINTER 


223 


WD1 


DC 





^ORu 1 OF COMMON NAPE 


224 


WD2 


DC 





WORu 2 OP COMMON NAPE 


225 


SAVEQ 


DC 





SYMBOL TABLE POINTER 


226 


ERRNO 


DC 


G 


ERROR NUMBER 


227 


ERR10 


DC 


in 


EKRUR NO, 10 


228 


ERR11 


DC 


11 


ERROR MO, 11 


229 


ERR7 


DC 


7 


ERROR NU . 7 


23 


ERR8 


DC 


8 


ERROR NU, 8 


231 


ERRID 


DC 


/AOOB 


ERRuR STMNT ID WORD 


232 


GET 


DC 





ADDKESS'OI NEXT STMf'T 


233 


svv 


DC 





STRING POINTER 


234 


ZERO 


DC 


/3000 


USEFUL CONSTANT 


235 


SLH 


DC 


/21 


SLASH 


236 


COM ID 


DC 





TYPE QF COMMON 


237 


* 




SETJP tRROKS 


238 


HELP 


LD 


ERR11 


SET ERROR NOj 11 


239 




STO 


ERRNO 


GO TO CLOSE 
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24 
241 
242 
243 
244 
245 
246 

24 7 
248 
249 

25 
251 
252 
253 
254 
255 
256 
257 

25 8 
259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

2 74 

275 

276 

2 77 

278 

279 

280 

281 

282 

2R3 

284 

285 

286 

287 

288 

289 

290 

291 

29 2 

293 

294 

295 

296 

2*57 

298 

299 



MDX 
SETUP LD 
STO 
MDX 
GEEP LD 
STO 
MDX 
ERAH LD 
STO 

* 



MnVE UP STRING 

ERR10 SET' ERROR NOi 10 

ERRNO GO TO CLOSE 

MOVE UP STRING 

ERR8 SET"" ERROR NOi 8 

ERRNO GO TO CLOSE 

MQVE UP STRING 

ERR7 SET' ERROR NO, 7 

ERRNO 

REPLACES AN tRRONtOUS STMNT /JIT 
AN! ERROR MESSAGE - CLOSES UP 

THE STRING 



MOVE LDX II COMSV 

LD 1 

SRA 2 

AND IQNRM 

STO NRMSV 

A COMSV 

STO GET 

LDX 12 GET 

LD ERRID 

STO 1 

LD ERRNO 

STO 1 1 

MDX 1 1 

LD L F.OFS 

S COMSV 

S NRMSV 

STO RANGE 

LDX 13 RANGE 

stx i syv 

MDX 3 1 

LOOP1 LD ? 

STO 1 1 

MDX 1 1 

MDX 2 1 

MDX 3 -1 

MDX LOOP1 

STX LI EOFS 

LDX U SW 

MDX 1 1 

BSC L TST 
* 
# 



REStT S1RJNG POINTER 

LOAD STMNT I" ^ORD 

RIGHT- JUSTIFY NORM 

CLEAR ALL BUT NORM 

ADD NORM TO STRING rOINTE 

TO UET ADDRESS OF NEXT 

STATEMENT 

INITIALIZE INPUT LOOP PT 

LOAD ERKOK STMNT ID WORD 

PUT ON STRING 

LOAU ERKOR NUMBER 

PUT ON STRING 

MOVt POINTER 

COMPUTE RANGE OF LOOP 

SUBTRACT POINTER THEN 

SUBTRACT NORM TO GET 

RANGE OF LOOP 

INITIALIZE RANGE COUNTER 

SAVb STRING POINTER 



PLACE LD WD2 

STO 3 2 

LD WD1 

STO 3 1 

LD HD1 

AND PIT1 

S RQTI 

BSC +Z 

MDX REEL 

S PSTN 

BSC L REFiLiZ 

LD I DC I 



MUVt WOHD DO w N 
IN STRING 
MOVE POINTERS 

DECREMENT RANGE COUNTER 
CON1 iNUb LOOP 
NEW~EnD OF STRING 
RESiORE INPUT POINTER 

movt string pointer 

check next stmnt 
places'a variable name in th= 
sym t8l - sets the common and 

TYPE*HDlCATURS IN THE SYM T3L 
ID WORD - CHECKS FOR A SYM T3L 
OVERLAP 

'PUT 2ND WORD INTO 

SYMwOL TABLE 

PUT 1ST~WQRD INTO 

SYMHOL TABLE 
SET TYPE AND'COMMON INDICATORS 
"GET FJRST LETTER 

OF" NAME 

IS jT I OR GREATER 

SKIR JF YfcS 

GO SET REAL ID WORD 

IS IT H OR LESS 

BRANCH IF NOT 

LOAU INTEGER INDICATOR 
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300 




MDX 


VJP 


GO PUT IN SY"BUU 1ABLL IU 


301 


REEL 


LD 


IDCR 


LOAu REAL SYM TBL IT 


30 2 


VIP 


OR 


COM ID 


PliT IN COMMON TYPE BIT 


303 




STO 


3 


PUT IN SYMBOL TABLE 


30 4 




MDX 


L E0FST,-3 


MODjFY SYMBOL 


305 




MDX 


L SOFXT,-3 


TABLE AUDHESSES 


306 




MDX 


L S0FGT,-3 




30 7 


* 




SYMBOL TABLE OVERLAP 


308 




LD 


L EOFST 


LOAU END OF SYMBOL TABLH 


309 




A 


CONST 


ADD TWO 


310 




S 


L EOFS 


SUBTRACT END OF STRING 


311 




BSC 


L JIMY#+Z 


BRANCH IF NEGATIVE-OVERLlA 


312 




MDX 


1 1 


HOVE POINTER 


33.3 




LD 


1 o 


LOAU NEXT WORD 


314 




S 


parnl 


IS LHAR LEFT PARENTHESIS 


315 




BSC 


L PRTEi*- 


BRANCH IF YES 


316 


* 




CHECKS FUR A COMMA UPTR 


317 


DD3 


LD 


1 o 


LOAU WORD 


318 




S 


COMAC 


is lhaRacter comma 


319 




BSC 


+ - 


SKJP JF NO 


320 




MDX 


DD1 


GO bET NEXT word 


321 




LD 


1 o 


LOAu WOKD 


322 




S 


SLH 


IS CHARACTER SLASH 


323 




BSC 


L OCOMi+- 


BRANCH IF YES 


324 




LD 


SW2 


SET SYNTAX ERROR IN 


325 




STO 


NQRM2 


COMMON STMNT SWITCH 


326 




BSC 


L PTB 


GO CHECK CHARACTER 


327 


* 




UPDATES THE UP STRING PT (X31) 


328 


* 




TO 


MOVE TO THE NEXT STRING W3RD 


329 


DOl 


MDX 


1 1 


MOVfc POINTER 


330 




BSC 


L DD2 


GET NEXT WORD 


331 


# 




CONSTANTS 


332 


NRMSV 


DC 





NORM 


333 


RANGE 


DC 





RANbE OF LOOP 


334 


CONST 


DC 


2 


TWO' 


335 


PIT 


DC 


/6000 


NUMERIC ZONE BIT MASK 


336 


PIT1 


DC 


/7E00 


ONE" CHAR EBC MASK 


337 


RGTI 


DC 


/1Z00 


I " 


338 


RGTN 


DC 


/180Q 


N 


339 


IQCI 


DC 


/6020 


IMThGER SYMBOL TABLE ID 


340 


IDCR 


DC 


/2020 


REAL SYMBOL TABLE IP 


341 


PARNL 


DC 


/ooou 


LEF1 PARENTHbSIS 


342 


cqmac 


DC 


/Q02B 


COMMA 


343 




BSS 


E 




344 


TEM 


DC 





EBC NgMaER TO 


345 




DC 





BE CONVERTED 


346 


COTl 


DC 


/7E00 


EBCNUMERJC MASK 


347 


C0T2 


DC 


/7800 


EBC NUMERIC BITS MASK 


348 


HELP1 


DC 





TEMPORARY STORAGE 


349 


MINT 


DC 


/4800 


NINfc 


350 


SUMM 


DC 





TEMPORARY TOTAL 


351 


CNT 


DC 





DIMtNSlUN COUNTER 


352 


parnr 


DC 


/001P 


RIGHT PARENTHESIS 


353 


* 




COM 


VERTS THE DIMENSION CONSTANT 


354 


* 




TO 


BINARY 


355 


PRTE 


SLA 


16 




356 




STO 


CNT 


CLEAR CUUNTEK 


357 




MDX 


1 1 


MOVE POINTER 


358 




LD 


1 


LOAu WORD 


359 




AMD 


PIT 


IS jT NUMERIC 



SEITE 



360 EOR PIT 
361 



RSC L GEEPiZ BRANCH IF NOT 

36 y * change'cumstant to binary mo, 

363 LDS ^CLEAR STATUS INDICATORS 

364 SLT 32 clEaR Atc AND EXTENSION 

365 STO SJMM ZERU TOTAL 

366 LD 1 LOAu FIKST WURP 

367 STP TF.M STOHE IN WORK AREA 

368 LD 1 1 LOAU 2ND WORD 

369 BSC L ATT," BRANCH UN OPERATOR 

37p SLA * ! GET RjD OF INDICATOR BIT 

371 STO TEM + 1 STOKE 2ND WORD 

372 LD 12 LQAU 3«D WORD 

373 HDX 1 1 HciVfc P°INTER 

374 RSC I GEEP,* BRANCH UN NO OPERATOR 

375 AOT LD TFM LUAu FlHST WORD 

376 AOTl AND CHT1 GETFlRST CHAR FROM WORD 

3 77 SLA 2 SHII-T Tu TEST IF NUMERIC 

378 BSC L PILL,C BRANCH CARRY ON 

379 BSC L NEX,+- BRANCH END OF CONVERSION! 

380 BSC L GFEP BRANCH fcRROR 

381 PILL BSC L GEEP,- BRANCH NOT NUMERIC 

382 AND C0T2 GET Ng^bER BITS 

3B3 S MINT IS NO, liRfcATER THAN NINE* 

384 BSC L OEEPi-Z BRANCH IF YES 

385 a NINT RESTORE ORIGINAL VALUE 

386 S RA 11 RIGHT JUSTIFY NUMBER 

387 STO HELP! SAVt NUMBER 

388 LD 5;1MM LOAu PREVIOUS TOTAL 

389 SLA 1 MULTIPLY BY TWO 

390 STO TEMPT SAVE 

30! BSC L GEEPn-Z BRANCH IF OVERFLOW 

302 SLA 2 MULT IPLY TOTAL BY 8 

393 BSC L GEEPiC+Z BRANCH IF ERROR IN NUMBER 

394 A TEMPT GET PREVIOUS TOTAL X 10 

395 a HELP1 A ^D UNITS VALUE 

396 BSC L GEEP,0 BRANCH IF OVERFLOW 

397 STO SIJMM STOKE NEW TOTAL 

398 LDD TEM SHIFT NUMBER TO 

399 SLT 6 GET EbiC NUMBER 

400 STD TRM IN POSITION 

4IU MDX AOTl GO PROCESS NUMBER 

4C2 # CO "TEMPORARY STORAGE 

403 THRE DC 3 THREE 

404 ZTEMP DC TEMPORARY STORAGE 

405 FLOG DC PRINTER STORAGE 

406 BOUND DC RANfcE OF LOOP 

Iqj I pLACES'A' DIMENSION CONSTANT INT 

408 * THE SYMBUL TABLE 

409 HEX MDX L CMT.l INCREMENT DIMENSION COUMT 
4io LD SJMM LOAU DIMENSION VALUE! 

411 BSC L GEFP, + - BRANCH IF ZERO 

4 :; „ PUT CONSTANT IN SYMBOL TABLE. 

4 f 3 LD C IT LOAD DIMENSION COUNT 

414 S L SW2 ^AS COUNT ONE 

435 BSC Z SKIP IF YES 

416 MDX 02 CHE^K FUR COUNT OF TWO 

41 7 LD SJMM LOAu DIMENSION VALUT 

418 STO 3 -1 P ^T IN ALL 

41 9 sto 3 -2 THR tE DJMfcNSlOf 
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03 
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NEXP 



TWO 

JIMy 



TCNT 



STO 

MDX 

S 

BSC 

MDX 

LD 

M 

SLT 

STO 

STO 

MDX 

LD 

M 

SLT 

STO 



MDX 

LD 

S 

BSC 

A 

S 

BSC 

LD 

SLA 

OR 

STO 

MDX 

MDX 

MDX 

LD 

A 

S 

BSC 

MDX 

BSC 

DC 

MDX 



LD 
S 

BSC 
BSC 



RMOVE LDX 
MDX 
LD 
SRA 
AND 
STO 
LD 
S 



-3 

NEXP 

SW2 

Z 

03 

-1 

SJMM 

16 
-2 

-3 

NEXP 

-3 
SJMM 

16 
-3 



L 

L 
L 
L 

L 

L 



WORuS 

GO bET NEXT NUMBER 
WAS'CgUNT TWO 
SKlK IF YfeS 

cheuk eyr co'^nt of three 
get value for 2nd and 3^d 

DJMtNSlUN BY MULTIPLYING 
FIRST VALUE BY SECOND 
VALUE 

STOKE IN TABLE 
GO UET NEXT NUMBER 
GET~VALUE FOK 3RD DJM 
BY MULUPL.YHG 2ND VALUE, 
BY ,JRD VALUE 
STONE IN TABLE 
CHECKS'FUR A COMMA, A RICMT 
PARENTHESIS* AND AN OVERLAP 
ERROR - INDICATES THE 
DIMENSIONING LEVEL IN THE SY 1 -' 

TBL ID WURD 
1 MOVE STRING POINTER 
LOAU WOKD 

CQMAC IS CHARACTER COMMA 
TCNT#+- BRANCH IF YES 
CQMAC RESlORE ORIGINAL VALUE 

parnk is It right parenthesis 

GFEP,Z BRANCH IF NOT 

PUT DIMtNSlUN COUNT IN SYM TBL 
LOAy DIMENSION COUNT 
POSITION FOR SYMBOL TABLE 
COMBINE W{TH ID WORD 
NEW SYMBOL TABLE ID WORD 
MODIFY SYMBOL 
TABLE ADDRESSES 



L 
L 



II 

1 
1 



L 
L 



CJT 

11 





ElFST,-3 

S0FXT,-3 

50FGT,-3 

EOFST 

T>!0 

EOFS 

JIMYi*Z 

1 



TES'l F'OK TABLE OVERLAP 

ADD'TWO 

SUBIRACT END OF STRING 

BRANCH IF OVERLAP 

MOVfc POINTER 

GO (jHECK NEXT WORD 



ERROR 



DD3 

CONSTANT 

2 TWO" 

ERROR, 1 SET OvEKLAP 
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DOES NOT EXCEED THRfcE LEVELS 

CJT LOAU DIMENSION COUNT 

T-|RE is it three or greater 

PRTE+2,+Z BRANCH IF NOT 

GEEP ERRUR <• BRANCH 
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CLOSES'UP THE STRING 
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1 

C3MSV 

ZTEMP 
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FLOG 
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FLOG 
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INITIALIZE RANGE COUNTER; 
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L 

1 
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INI | ULlZb INPUT LOOP PT 

SAVfc STHING INPUT POINTER 

MOVE WOKD DOWN 

IN bTRlNG 

MQVb POINTERS 

DECkEmEnT COUNTER 

CQNi iNUb LOOP 

NEW'ENO OF STRING ADDRESS 

RESTORE INPUT POINTER 

MQVfc POINTER 

GO TO CHECK FOP END 
CHECKS FUR A SLASH (/) FPLLOa'IN 
A SLASH (/) - IF FOUND INDICATE 
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LOAU WORD 

IS CHARACTER SLASH 

BRANCH IF NOJ 
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16 
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SETUP, Z 
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SETUP,Z 
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QM3 

SETUP, Z 

CHECK FOR 

4 

SLAS 

SETUP, Z 

5 

CHECK FOR 

CCWD 
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EROWD,- 

SET COMMON 

Q-i4 GET 

COM ID PUT 

DD2 EXIT 

PUT OyT ERROR 

74 SET 
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MOVE EX J i 
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CLEAR COMMON TYPE If DICAT 
GO 10 CHARACTER CHECK 
RELUAD THfc STRING WORD 
COMPARE TU INSKEL 
8R IF NO COMPARISON 
COMPARE ANOTHER PART OF WD 

WITH iNbKfcL 

AGAIN. BR IF NC COMPARISON 

GET THE LAST PART AND MAKE 

final comparison 

b« uut if comparison f ails 

a"slash 

GET THE FOLLOWING Cl'ARACTE 
AND COMPARE IT TO A (/) 
BR OUT IF NO COMPARISON 
MOVt POINTER 
ONE WQRU INTEGERS 
GET CONTROL CARD WORD AMD 
CHEOK FUR BIT 9 ON 
BR AND bET E«ROR IF NOT 
ID TO ONfc 

THE CONSTANT 

IT IN STORAGE 
TO CHECK NAME 

NUMBER 74 

AN bRHOR COND AND 

IT IN STORAGE 
TO CLOSE UP STRING 
FOK JNSKEL 
CONSTANTS FOK 
DETERMINING 
INSKEL common 
ID CONSTANT 
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STX 
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AND 
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* 
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STX 
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LD 

S 
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LD 

S 
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LD 
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STX 

MDX 
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SDFS 
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STARF 



PACKED EBC SLASH 
IS THERE OVERLAP ERPOR 
BRANCH IF YES 
INITIALIZE PHASE 

"INITIALIZE STRING POINTER 
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TEST {F FlO CALL 
BRANCH IF NOT 
SET FjO STMNT PRESENT S* ! 
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L0 



SORF 

DQ3,Z 



1 

IDTPQ 

REALC 

TRY,+- 
IMTC 

sos,z 

ASW3 
TRY + 2 



MOVE TO NEXT STMNT 

CHEUK NEXT STMNT 
CHECKS'THE FURTRA^ COMMUl ICATIO 
AREA (SOKE) f-OR A SUBP If'DN »• 
IF NONE, CHECKS THE FIRST ST^NT 
SEE" Ih IT IS REAL OR INTE3ER 

HAVE SUBROUTINE OR FUNC 

BRANCH IF YES 

LOAU STMNT ID WORD 



TO 



STX L0 ASW2 



JNC1 



GET ST^NT ID TYPE 
IS bTMNl HEAL 
BRANCH IF yes 
IS bTMNT INTEGER 
BRANCH IF NOT 
SET INTEGER STMNT SW 
CHECK FUR FUNCTION 
CHECKS'FgR THE WORD ^FUNCTION* 
IN A REAL OR INTEGER STMNT - 
IF FOUND, INDICATES A FUNCTION 
IN THE "FORTRAN COMMUNICATION 
AREA CSOKF) 

SET "REAL bTMNT SW 
ARE NEXT FOUR WORDS #FU|-;CTI3N* 
LOAU WOKD 
ARE CHARACTERS 
BRANCH IF NOT 
LOAU 2^0 WORD 
ARE CHARACTERS 
BRANCH IF NOT 
LOAU 3RD WORD 
ARE CHARACTERS 
BRANCH IF NOT 
LOAU 4TH WORD 
IS CHARACTER *N* 
BRANCH IF NOT 
SAVE STRING POINTER 
MOVE POINTER 
INDICATE FUNCTION W> 
COMMUNICATION AREA 
SQRF,1 "SET FUNCTION IN 
DH2+1 CHEUK FuR LEGAL 
CHECKS'FUR A SUBP OR 
LOAu STMNT ID WORD 

11 GET STMNT ID TYPE 

SF1 IS IT FUNCTION 



c , D S . Z 



F,!NC2 

sos.z 
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FUNC 3 

sos,z 
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FUNC4 

sos.z 

SUBSV 
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FUNC 
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629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

64 

641 

642 

64 3 

644 

645 

646 

647 

64 8 

649 

650 

651 

652 

653 

654 

655 
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657 
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REALC 
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WRDl 
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SUBSV 
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SAVE 
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ER7R 

ERR12 

ERR13 
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BSC 
S 

BSC 

STX 
MDX 

LD 

BSC 

MDX 

STO 

LD 

BSC 

LD 
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MDX 
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MDX 

LD 

BSC 



LDX 
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LD 

S 

BSC 
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LD 

S 

BSC 
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STX 

LD 

S 
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DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 
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BRANCH If YES 
IS jT SUBROUTINE 
SQS.Z BRANCH IF NO 

CHECKS'FUR A VALID SUBP 
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SF° 



MAME 
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S'iRSV SAVfc INPUT POINTER 
l' MOVfc POINTER 

LOAU WORD 

SKIP IF NUMBER OR LETTER 

ERRUR 

SAVfc WOKD 

LOAU 2NU WORD 

BRANCH IF NAME TWO WORDS 

SET ZEROS FOR 

SECOND WORD OF NAME 

PUT NAME IN SYMBOL TABLE; 

STOKE 2ND WORD 

MOVfc POINTER 

LOAU NEXT WORD 

ERRUR IF NOT SPECIAL OP=R 
THfc SYM TBL FOP 



ER7 

WRDl 

1 

MADSi*Z 

ZO 

WRD2 

ZOR 
WRD2 
1 
1 

ER7,+Z 

SCANS 
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SOFNS 

HACK 

1 

WRDl 

Z 

EATQ 

2 

WRD2 

CHK,* 

-3 

SAVE 

SAVE 

EOF ST 

Z 

LQP 

PLACO 

/0D 

/C4-/0D 



/IB 

/2400 

/D400 

/8D22 

/D0E3 

/9282 

/ D 

*»* 



*•* 
/01FF 


• - * 

/7C00 
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DUPLICATION UF THE SUBP NAME 

INITIALIZE SYMBOL TABLE P 
STAkT CHECK 

DQEb FIRST WORD OF SYMBOL 
TABLE MATCH 1ST PART 
SKIP IF YfcS 
GET'NEXl TABLE ENTRY 
DOEi 2NU WORD OF SYMBOL 
TABLE MATCH 2ND PART 
BRANCH IF YES 
GO ]0 NEXT TABLE ENTRY 
STOKE POINTER 
HAS'ENTlRfe SYMBOL TABLE 
BEEN CHECKED FOR DUPLICAT 
SKIP JF YfcS 
CONi INUE LOOP 
PLACE NAME IN TABLE 
CONSTANTS 

FUNOTJON 
SUBROUTINE 
SWl'lCH t>A 
FIO" 
REAL 

JNTfcGER 
FU 

NC 

TI 

ON 

TEMPORARY STORAGE FOR 

SYMBOL 1 ABLE ENTRY 

NORM MASK 

POINTER STORAGE 

NORM STORAGE 

STMNT !U TVPE MASK 

TEMPORARY STORAGE 

ERROR NUMBER 

ERROR NO, 7 

ERRUR NO, 12 

ERRUR NO, 13 

ERROR NO, 14 
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663 
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665 
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667 
668 
669 
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674 
675 
676 

67 7 
678 
6 79 
6R0 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
6*52 
693 
694 
695 
696 
697 
6*58 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 



ERlD 

ZO 
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ER7 



ER12 



ER13 
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CLOSE 



LOOPZ 
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LD 
SLA 
BSC 
MDX 

LD 

STO 

MDX 

LD 

STO 

MDX 

LD 

STO 

MDX 

LD 

STO 



LDX 

LD 

SRA 

AND 

STO 

A 

STO 

LDX 

LD 
STO 

LD 

STO 

MDX 

LD 

S 

S 

STO 

LDX 

MDX 

LD 

STO 

MDX 

MDX 

MDX 

MDX 

STX 
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NAM 
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H4 80 

HO 80 

SEMI 
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CHECKS THAT A PARAMETER NAME 
HAS NOT bEbN ENTERED INTO COMMO 
3 o LOAu SYMBOL TABLE ID WO=?P 

2 IS IT IN COMMON 

BRANCH IE NOT 

ERHQH 



+ Z 
ER13 

ERR14 
ERNO 
CLOSfc 
ER7R 

ERMO 

CLOSE 

ERR12 

ERNO 

CLOSE 

ERR13 

ERMO 
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L? 



L3 
3 
2 

1 
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GO SET UP ERHOH 13 
SET UP tRROHS 

SET'UP 

ERRUR NU, 14 

CLObE UP STPINC 

SET" UP 

EKRUR NU, 7 

CLObE UP SiTRlNC 

SET'Up 

ERRuR NU. 12 

CLObE UP STRING 

SET'Up 

EWKUR NU, 13 
CLOSES'THE S1RJNG AFTER 
REPLACING THE ERRONEOUS 
WITH AN ERROR MESSAGE 



SJBSV 

2 
IDNVQ 

r j v m s v 

SJBSV 

* + l 

* p.* 

EPID 



ERNO 

1 

1 

EOFS 

SljBSV 

Fly MS V 

* + l 

1 



1 
1 
1 
-1 

LOOPZ 
EOFS 



LOAU 
LOAU 



STMNT 
STMNT 



ID 
ID 



l-ORD 
WQRD 



STMNT 
ADDR=S 



CLEAR ALL BUT NORM 

GET ADDKESS OF NEXT STMNT 

BY ADDING NQHM TO ADDRESS 

OF HRESENT STMNT 

INITIALIZE: INPUT LOOP PT 

LOAU ERKOK STMNT ID WORD 

PUT ON STRING 

LOAU ERKOR NUMBER 

PUT ON STRING 

MOVE OUTPUT LOOP POINTER: 

COMPUTE RANGE 

OF MOVE LOOP 



STOKE 
RANUE 



range in 
cuunteh 



MOVE WOKD DOWN 
IN STMNT STRING 
MOVE POINTERS 

DECKEMENT counter 

CUN'rlNUE loop 

NEW'END OF STRING ADDRESS 
BRANCHES TQ THE ROL ROUTINE TO 
LOAD THE NEXT PHASE 



ROLRX 

05 

/7E00 
/1200 

/180P 
/4080 

/0080 

/no ie 



CALL 
NEXl 

CONSTANTS 



PHASE 
PHASE 



ROLLER 
NUMBER 



STMNT IU TYP^ MASK 

r 

N 

INTEGER SUBPHOUPAM 

REAL SUBPROGRAM 

SEMiCOLUN 
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7?D PPAR DC /1D-/2R RIGHT PARENTHESIS 

721 LPAR DC /CD LEFT PAKENTHESIS 

722 TWOS DC 2 TWO 

723 ASW2 DC *-* SWITCH db 
7?4 ASW3 DC *-* SWITCH 3A 
725 THREE DC 3 THRfcE 
796 qlGNl DC /8001 SIGN 

7 6 SIbNl p L ACES THE SUBP NAME INTO THE 

7 P8 * SYH TBL - PLACES THE ADDR OF TH 

7^9 # SYM TBL tNTRY INTO THE FORTRAN 

7 3Q # COMMUNICATIONS AREA (FNAf'E) 

731 PLACQ LD WRD2 ~LQAu SECOND WORD 

732 STO 3 2 RUT IN SYMBOL TABLE 

733 L p ' WPDl LOAu FIRST WORD 

774 STO 3 1 ' PUT IN SYMBOL TABLE 

735 * " ~ PUT SYMBuL TABLE ADDRESS IN 

736 * COMMUNICATION AREA 

7 \ 7 LD L SQFST "FINu LOCATION OF PRESENT 

738 s SAVE EN'TKY RELATE TO START 

7 79 SRT 16 Of SYMBOL TABLE 

740 D THREE GET~ EnTkY POSITION 

741 A SICN1 G I V fc SIGN 

742 STO L ENjAMt SAVfc 

743 LD ASW2 IS IT REAL 

744 BSC L IGER,*- BRANCH IF NOT 

745 SLA 16 

746 STO ASW2 CLEaR REAL SJMNT SW 

747 HDX PEELO GO bET *EAL SUBPROGRAM 31 

748 IGER LD ASW3 ID iT INTEGER 

749 BSC L PLAC1,*- BRANCH IF NOT 

"7 C" fl Qi A *! £ 

7^1 STO ASW3 CLEAR INTEGE* STHNT SW 

7 r 2 MDX PLAC1+3 GO bET INTEGER SUBPpG BIT 

7^3 # SET THE bUBP AND TYPE INPRS IN 

7 R4 „ THE SYM iBL ID WOKD OF A SUB = 

7 » * S'JRP'NAME FOUND IN A SUBP* FJNC 

7 'JL t REAL FUNCTION, OP INTEGER FU^C 

7^ 7 w STHNT : CHfcCKS FOH A SYM TBL 

7*8 * OVERLAP 

7^9 PLACl LD WRD1 LOAu FlKST WORD 

AND H7E00 CLEAR ALL BUT FIRST WORD 

S H1200 IS iT LESS THAN I 

762 BSC + Z SKIP IF YfcS 

76 3 MDX REELO GO bET HEAL SUBP BITS 

764 S M1B00 lb ]T N OH L^SS 

765 BSC L REELO,Z- BRANCH IF NOT 

7 66 LD H408D SET INTEGER SUBPPG PITS 

767 MDX VJPQ SET iNTtGfcR SUBP BITS 

768 REELQ LD H0080 SET RgAL SUBPROGRAM BITS 

769 VIPQ STO 3 PUT IN SYMBOL TABLE 

770 MDX 3 -3 ^Vt SYMBOL TABLE POINTER 

771 STX L3 EOFST NEW'END OF SYMBOL TABLE 

772 MDX L 50FXT,-3 MOVt SYMBOL 

773 mdx l sqfgt,-3 table audhesbes 

774 * symbol table overlap 

775 ld l fofst loau end qf symbol tabl~ 

776 A TWOS ADD TWO 

777 s L FlFS SUBTRACT END OF STRING 

778 BSC L JIMMY, +Z BRANCH IF OVERLAP ERROR 

779 SLOP MDX 1 1 ' M 0. v t pOlNTEP 
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795 
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1 
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♦Z BRANCH IF PA«T OF NAME 
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LOAU ZEROS AS 2ND WORD 
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STO 
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STOKE 
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MDX 
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i GO HUT IN SYMBOL TABLE 
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SAPS 


STO 




WDD2 


STOKE 2ND WORD 
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1 
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1 
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805 
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L 
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80 9 




MDX 
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DOES FIRST WORD OF NAME 
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S 




WDDl 


MATCH 1ST WORD OF TABLE 
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Z 


SKJK IF YfcS 
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CLET 


GET" NEXT SYMBOL TBL ENTRY 
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DOES 2NU WORD MATCH 2ND 
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S 
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WORD OF SYMBOL TBL ENTRY 
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CHK # * 
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MOVE pT TO NEXT TBL ENTRY 
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CAKE 


STX 


3 
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SAVfc TABLE POINTER 
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SIV 


LOAU ENTRY ADDRESS 
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L 
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BSC 
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SKIP IF FINISHED CHECK 
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PIECE PUT MA*b JM SYMBOL TABL= 
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WDDl 
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"TEMPORARY STORAGE FOR 
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SYMbOL TABLE ENTRY 
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TEMPORARY STORAGE 
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/04QO REAL FUNCTION 
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COMA 
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COMMA 


831 


ASWl 
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ERR15 
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SYM TBL <• SETS THE PARAM AND 


835 


# 








TYPE'INDiCaTURS IN THE SYM T3L 
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KEEL 
HIPS 



IV 



ZT 



STO 

LD 
STO 



LD 

AND 

S 

BSC 

MDX 

S 

BSC 

LD 

MDX 

LD 

STO 

MDX 

STX 

HDX 

MDX 

LD 

A 

S 

BSC 

MDX 

LD 

S 

BSC 

S 

BSC 

STX 

MDX 



LDX 

MDX 

LD 

SRA 

AMD 

STO 

LD 

S 

S 

STO 

LDX 

LD 

A 

STO 

LDX 

MDX 

LD 

BSC 

LDX 

LD 

STO 

LD 

STO 

MDX 



L 
U 



L 
L 



3 
L3 
L 



L 
L 
L 
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PUT IN SYMBOL TABLE 
LOAU 1ST WORD 
PUT IN SYMBOL TABLE 
INDICATE TYPfc AND 
FORMAL'PARAMfcTfcR 

LOAU FIKST WORD 

GET FjRbT CHARACTER 

IS IT LESS THAN I 

SKIP JF NO 

SET'REAL INDICATORS 

IS IT GKEATEH THAN N 

BRANCH IF YES 

LOAU INTEGER FUNCTION ID 

GO HUT IN SYMBOL TABLE 

LOAU REAL FUNCTION ID 

PUT IN SYMBOL TABLE 

-3 MOVh POJMTER 

EHFST NEW END OF SYMBOL TABLE 

S0FXT,-3 MODIFY SYMBOL 

SOFGT f -3 TABLE ADDRESSES 



WDD1 
1 



WDD1 
II7E00 

H120Q 
+ Z 

KEEL 
H1800 

KEELiZ 
I DC I I 
HIPS 
IDCRR 



L 
L 
L 



EOFST 

Tv^OS 

EQFS 

UIMMY.+Z 

1 



CQMA 

FLlP#«- 

PPAR 

ER12iZ 

ASWl 

SLOP 



11 
1 
1 



L 
L 



L3 
L 



3 
L 
L 
II 



SYMBOU'TABLE OVERLAP 



REMOVES A 
CLOSES UK 



LOAU END QF SYMBOL TABLE 

ADD TWO 

SUBTRACT END OF STRING 

BRANCH IF OVERLAP 

MOVt STRING POINTER 

LOAU WORD 

IS CHARACTER COHMA 

BRANCH IF YES 

IS CHARACTER RIGHT FARES 

BRANCH IF NOT 

SET RJGHT PARENTHESIS Stf 

CHECK REST OF STMNT 

STMNT FKO* THE STRING 

THt STRING 



S'JBSV 

-1 

1 

2 

IDNVQ 

ZT + 1 

EC)FS 

SIJBSV 

ZT + 1 

**1 

*-* 

SUBSV 

ZT + 1 
ZT + 1 
• -* 

1 

S„!5A 

LPPQ» 

SOFS 

ERR15 

1 

ERID 



1 



INIIULIZE INPUT LOOP PT 

LOAU STMNT ID WORD 

GET STMNT NORM 

GET RaNCE OF MOVE LOOP 3Y 
SUBTRACTING PRESENT STMNT 
FRO* END OF STRING «• THEN 
SUBTRACTING STf NT SIZE 
LOAu RANGE COUf TER 
GET ADDRESS OF NEXT STMNT 
BY ADDING NOHM TO PHESEMT 
STMNT ADDRESS 
INITIALIZE INPUT LOOP PT 

IS HQ STMNT PRESENT 
BRANCH JF NOT 
LOAU START OF STRING ADDR 
LOAD E^HOR NO, 15 
PUT ON STHINO 
LOAU ERHOR STMNT ID WORD, 
PUT ON STRING 
MOVE POINTER 
REMOVES AN ERRONEOUS STMNT FROM 



+•- 





SEITE 


16 




900 


* 






TH 


901 


LPPQ 


LD 


? 





902 




STO 


1 


1 


903 




HDX 


1 


1 


904 




MDX 


2 


1 


905 




HDX 


3 


-1 


906 




MDX 




LPPQ 


907 




STX 


LI 


F.OFS 


908 




BSC 


L 


SOS 


909 


JIMMY 


HDX 


L 


E=>ROR,l 


910 




BSC 


L 


SOS 


911 




BSS 




nyERL,-* 



STRING 

'UOAu NOHD 
PUT ON STRINU 
MQVfc POINTER 



DECKEMENT POINTERS 
CONl iNJfc LOOP 
NEW'END OF STRING 
GO TO END OF PHASE 

set'ovEnlap ERROR If 

GO ]0 END OF PHASE 



DR 



*+32Q*3 pHASfc-04 PATCH AREA 



912 



END 



TOP 



